Notifications
Clear all

Codigo em botão pra ordenar dados. S.O.S 😛

17 Posts
2 Usuários
0 Reactions
2,830 Visualizações
(@marciojr)
Posts: 146
Estimable Member
Topic starter
 

Gente,

S.O.S :shock:

Possuo um botão adicionado encima da celula S5, e gostaria programa-lo com uma rotina para ordenar os dados na tabela, porem ordenar a partir da coluna H, onde é apresentado o titulo "Estaca". Gostaria também que ela funcionasse ordenando também os dados quando aplicado filtros para refinar os dados, por exemplo:
Filtrar a coluna "G"(Lado) para "Esquerdo" e depois acionar o botão para ordenar os dados filtrados.

Exemplo Sem filtro e sem acionar o botão para ordenar: :ugeek:
Lado Estaca

Direito 1821
Esquerdo 2020
Direito 2109
Direito 1125
Esquerdo 1125

Exemplo Com filtro e acionado o botão para ordenar: :mrgreen:

Lado Estaca

Esquerdo 1125
Esquerdo 2020

Segue em anexo a planilha. :roll:

 
Postado : 30/04/2014 2:02 pm
(@themrl16)
Posts: 60
Trusted Member
 

Bom dia Márcio!

Me esqueci desse detalhe rsrsrs...
Eu alterei parte do código para desconsiderar células que estão ocultas (se estiver oculta, ele procura na linha de cima e na célula de baixo, dependendo de qual das 2 células estão sendo analisadas nos laços).
Para que a planilha fosse atualizada a cada mudança de filtro, foi necessário adicionar mais um evento a planilha (Worksheet_Calculate), que será ativada sempre que o filtro for aplicado... dessa forma, não foi necessário criar outro botão, pois o VBA permite utilizar booleanas para verificar se a propriedade .Hidden de uma linha/célula/coluna está oculta ou não.

Segue o arquivo modificado no anexo desta mensagem.

Abraços,

Murilo.

 
Postado : 09/05/2014 5:48 am
(@marciojr)
Posts: 146
Estimable Member
Topic starter
 

Aeeeeeeeeeeee :o

ta funcionando redondinho agora :mrgreen:
Valeu mesmo!

você é o cara haha

 
Postado : 09/05/2014 7:33 am
Página 2 / 2